home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / BCCGRX12.ZIP / contrib / bcc2grx / src / bccgrx10.c < prev    next >
C/C++ Source or Header  |  1993-05-22  |  1KB  |  40 lines
  1. /*
  2.  *  BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
  3.  *  Copyright (C) 1993  Hartmut Schirmer
  4.  *
  5.  *  see bccgrx.c for details
  6.  */
  7.  
  8. #include "bccgrx00.h"
  9.  
  10. void sector(int x,int y,int stangle,int endangle,int xradius,int yradius)
  11. {
  12.   _DO_INIT_CHECK;
  13.   x += VL;
  14.   y += VT;
  15.   stangle *= 10;
  16.   endangle *= 10;
  17.   xradius = XR(xradius);
  18.   yradius = YR(yradius);
  19.   switch (FPATT) {
  20.     case SOLID_FILL :
  21.       GrFilledEllipseArc(x,y,xradius,yradius,stangle,endangle,FILL);
  22.       if (COL != FILL)
  23.     goto frame;
  24.       break;
  25.     case EMPTY_FILL :
  26.       GrFilledEllipseArc(x,y,xradius,yradius,stangle,endangle,COLBG);
  27.       if (COL != COLBG)
  28.     goto frame;
  29.       break;
  30.     default :
  31.       FILLP.gp_bmp_fgcolor = FILL;
  32.       FILLP.gp_bmp_bgcolor = COLBG;
  33.       GrPatternFilledEllipseArc(x,y,xradius,yradius,stangle,endangle,&FILLP);
  34. frame:
  35.       GrEllipseArc( x, y, xradius, yradius, stangle, endangle, COL);
  36.       GrLine( _grx_arc_xs, _grx_arc_ys, _grx_arc_xc, _grx_arc_yc, COL);
  37.       GrLine( _grx_arc_xc, _grx_arc_yc, _grx_arc_xe, _grx_arc_ye, COL);
  38.   }
  39. }
  40.